home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / RANDSEED.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-29  |  1.8 KB  |  28 lines
  1. 5  CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
  2. 12  '***************** VARIABLE RANDOM SEED GENERATOR **************************
  3. 16  'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  4. 18  'OPEN          USE OF TIME$ TO STIMULATE RANDOM NUMBER GENERATOR              OPEN
  5. 20  'OPEN                                                                         OPEN
  6. 22  'OPEN    This simple program will do a better job of RANDOMIZING than the old OPEN
  7. 24  'OPEN procedure of assigning a random seed number on a prompt.   This pro-    OPEN
  8. 26  'OPEN cedure is recommended on page 4-236 of the IMB (c) BASIC (1.1/2.0)      OPEN
  9. 28  'OPEN Manual.  This program is but an implementation of the procedure. To use,OPEN
  10. 30  'OPEN eliminate the printout & timer loop.  Simply put lines 110 to 130 at    OPEN
  11. 31  'OPEN the start of your program. The random 'seed' will change with the TIME$ OPEN
  12. 32  'OPEN second advance.   G I N A C O  -- 1983                Ver 5.2/160/320   OPEN
  13. 38  'SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  14. 55  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  15. 57  ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
  16. 60  CLS:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT
  17. 100  COLOR 7,0
  18. 110  '************************ RANDOMIZE PROCEDURE *****************************
  19. 120  NN = VAL(RIGHT$(TIME$,2))
  20. 130  RANDOMIZE NN
  21. 140  '********** DO NOT USE LINES 140,150,160, OR 170 IN YOUR PROGRAM **********
  22. 150  PRINT TIME$,,NN ,,RND
  23. 160  FOR I = 1 TO 1000:NEXT
  24. 170  GOTO 120
  25. 180  END
  26. 65000  '*********************** SAVE ROUTINE ***********************************
  27. 65100  SAVE"B:RANDSEED.BAS"
  28.